home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed20.d64 / tt20 (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  6KB  |  165 lines
  1. 10 CLR:POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23
  2. 15 PRINT"[147]                                        [146]";
  3. 20 PRINT"     [210][193][196]'[211] [212][207][213][195][200][160][212][217][208][201][206][199] - MADE EASY     [146]";
  4. 25 PRINT"                                        [146]":GOSUB710
  5. 30 PRINT"               [205]ODULE 20 [146]
  6. 35 [141]720
  7. 38 [151]53280,0:[151]53281,0:[151]646,7
  8. 40 [153]"LOAD                 (null)(null)20 WAIT
  9. 42 PRINT"[150]              [215][193][210][206][201][206][199]!![159]"
  10. 44 PRINT"   [201]F YOU MAKE 4 UNCORRECTED ERRORS        IN THIS MODULE, YOU ";
  11. 46 PRINT"MUST START          OVER AGAIN."
  12. 48 PRINT"[154]     [208]RESS  [211][208][193][195][197][160][194][193][210] [146] TO CONTINUE[159]"
  13. 50 GETR$:IFR$<>CHR$(32)THEN50
  14. 52 GOSUB600
  15. 56 POKE53280,3:POKE53281,15:POKE646,0:POKE53272,21
  16. 58 R=0:TI$="000000":LINE=0:P=0:Q=0:G=1:K=0
  17. 60 LINE=LINE+1:PRINT"[147] TT20  EXERCISE:"TAB(2)LINE"OF 17"TAB(27)"ERRORS:"Q
  18. 62 FOR K=1 TO 17
  19. 64 READ E$(K)
  20. 66 PRINT" TYPE CORRECTLY, THEN PRESS RETURN[146]"
  21. 68 PRINT" ";E$(K)
  22. 70 PRINT"[144]"
  23. 72 READ F$(K)
  24. 74 POKE198,1:POKE631,34:INPUT C$
  25. 76 IF C$=F$(K) THEN 90
  26. 78 PRINT" **** NOT CORRECT - REPEAT - ERRORS:"G"[144]":GOSUB2050:GOSUB710
  27. 80 Q=Q+1:G=G+1
  28. 82 IF Q=4 THEN GOSUB 400:RESTORE:G=0:GOTO 56
  29. 84 GOTO 74
  30. 90 PRINT"[156]              CORRECT![144]":GOSUB2000:GOSUB710:P=P+1
  31. 92 IFP=17THEN RESTORE:GOTO 300
  32. 94 GOTO60
  33. 99 REM DATA FOR EXERCISES
  34. 100 DATA" NOT YET NOT YET NOT YET NOT YET","NOT YET NOT YET NOT YET NOT YET"
  35. 105 DATA" YES SIR YES SIR YES SIR YES SIR","YES SIR YES SIR YES SIR YES SIR"
  36. 110 DATA" SAY YES SAY NO SAY YES SAY NO","SAY YES SAY NO SAY YES SAY NO"
  37. 115 DATA" SUDDENLY SHE LAUGHED AND SMILED.","SUDDENLY SHE LAUGHED AND SMILED."
  38. 120 DATA" THE STORY OF THE COUNTRY IS SAD.","THE STORY OF THE COUNTRY IS SAD."
  39. 125 DATA" SOME OLD MEN DUG IN THE GARDEN.","SOME OLD MEN DUG IN THE GARDEN."
  40. 130 DATA" A FEW WOMEN WERE WASHING DISHES.","A FEW WOMEN WERE WASHING DISHES."
  41. 135 DATA" THEY WERE PLAYING IN THE ATTIC.","THEY WERE PLAYING IN THE ATTIC."
  42. 140 DATA" A FEW PEOPLE WERE TOO TIRED.","A FEW PEOPLE WERE TOO TIRED."
  43. 145 DATA" I LIKE GOING TO MY SCHOOL TOO.","I LIKE GOING TO MY SCHOOL TOO."
  44. 150 DATA" THE PRINCIPAL IS FROM IRELAND.","THE PRINCIPAL IS FROM IRELAND."
  45. 155 DATA" WHAT ELSE CAN I SAY RIGHT NOW.","WHAT ELSE CAN I SAY RIGHT NOW."
  46. 160 DATA" YOU ARE ANGRY WITH HER TODAY.","YOU ARE ANGRY WITH HER TODAY."
  47. 165 DATA" SHE RAN SCREAMING TO MY MOTHER.","SHE RAN SCREAMING TO MY MOTHER."
  48. 170 DATA" I FELT ANGRY WHEN IT FELL DOWN.","I FELT ANGRY WHEN IT FELL DOWN."
  49. 175 DATA" SOME DAY I MAY SUDDENLY YELL.","SOME DAY I MAY SUDDENLY YELL."
  50. 180 DATA" TRY NOT TO JUMP AT THE OLD PUMP.","TRY NOT TO JUMP AT THE OLD PUMP."
  51. 298 :
  52. 299 REM FINAL INSTRUCTIONS
  53. 300 RESTORE:POKE53272,23:PRINT"[147]                [199][207][207][196][160][215][207][210][203]!":GOSUB900
  54. 305 POKE53280,0:POKE53281,0:POKE646,7
  55. 310 PRINT"[147]  [212]HIS IS THE END OF MODULE 20.":GOSUB710
  56. 315 PRINT"  [212]HE NUMBER OF SECONDS TO COMPLETE       THIS MODULE WERE:"
  57. 317 PRINT"[145]"VAL(TI$)
  58. 320 GOSUB720
  59. 325 PRINT"  [210]ECORD THIS TIME AND THE DATE.
  60. 330 [141]740
  61. 335 [153]"DEF  (null)HIS MODULE SHOULD BE PERFORMED TWICE
  62. 340 PRINT"  BEFORE ADVANCING TO MODULE 21."
  63. 345 GOSUB730
  64. 350 PRINT"[158]  [215]HEN YOU HAVE RECORDED YOUR TIME
  65. 355 [153]"  AND THE DATE, PRESS (null)(null)ATNLENVAL PEEKATN(null).
  66. 360 GETR$:IFR$<>CHR$(32)THEN360
  67. 362 PRINT"[147]  [217]OU HAVE A CHOICE:
  68. 364 [153]"  (null)RESS  R WAIT TO REPEAT THIS MODULE
  69. 366 PRINT"  [208]RESS  C [146] TO GO TO MODULE 21
  70. 368 [153]"  (null)RESS  M WAIT TO RETURN TO DISK MENU
  71. 370 GETR$:IFR$<>"R"ANDR$<>"C"ANDR$<>"M"THEN370
  72. 372 IFR$="R"THEN RESTORE:GOTO10
  73. 374 IFR$="M"THEN 386
  74. 376 RESTORE
  75. 378 PRINT"[147]  [204]OADING MODULE 21
  76. 380 [147]"TT21",8
  77. 382 [138]
  78. 384 [128]
  79. 386 [140]
  80. 388 [153]"LOAD  (null)ETURNING TO THE DISK MENU
  81. 390 LOAD"MENU",8
  82. 392 RUN
  83. 394 END
  84. 399 :
  85. 400 REM START AGAIN
  86. 410 POKE53280,0:POKE53281,0:POKE646,10
  87. 420 PRINT"[147]   YOU ARE MAKING TOO MANY MISTAKES!":GOSUB2150:GOSUB720
  88. 430 PRINT"   YOU MUST GO BACK TO THE BEGINNING       OF THIS MODULE.
  89. 440 [141]740:[153]"LOAD"
  90. 450 [142]
  91. 598 :
  92. 599 [143] INSTRUCTIONS FOR MODULE
  93. 600 [153]"OPENLOAD  (null)ODULE 20 IS A REVIEW.
  94. 605 PRINT"  [150]   [146][153]   [146]   [146][158]      [146][159]      [146]   [146][153]   [146][150]   [146]
  95. 610 [153]"   DEF   WAITPRINT (null) WAIT VAL WAITSYS (null)  (null) WAITOPEN (null)  (null) WAIT RIGHT$ WAITPRINT (null) WAITDEF (null) WAIT   "
  96. 615 [153]"    DEF ATN WAITPRINT (null) WAIT STR$ WAITSYS ASC WAIT CHR$WAITOPEN  LEFT$  MID$ WAIT (null) WAITPRINT (null) WAITDEF : WAIT"
  97. 620 [153]"      DEF   WAITPRINT  WAIT LEN WAITSYS       WAITOPEN(null) WAIT (null) WAITPRINT    . WAITDEF   WAIT
  98. 625 PRINT"[155]                 [211][208][193][195][197]      [146]
  99. 630 [141]720
  100. 635 [143] PRINT"OPEN  (null)SE YOUR  MID$ WAIT FINGER TO PRESS THE  (null) WAIT    KEY.
  101. 637 PRINT""
  102. 640 PRINT"[159]  [194]E SURE YOUR [208][207][201][206][212][217]  [198] [146] AND  [202] [146]         FINGERS CAN ";
  103. 645 PRINT"FIND THEIR [200][207][205][197] KEYS."
  104. 660 GOSUB720:PRINT"[154]        [208]RESS  [211][208][193][195][197] [146] TO START[159]"
  105. 665 GETR$:IFR$<>CHR$(32)THEN665
  106. 670 RETURN
  107. 700 REM TIME DELAYS
  108. 710 FORT=1TO1000:NEXT:RETURN
  109. 720 FORT=1TO2000:NEXT:RETURN
  110. 730 FORT=1TO3000:NEXT:RETURN
  111. 740 FORT=1TO4000:NEXT:RETURN
  112. 750 FORT=1TO5000:NEXT:RETURN
  113. 899 REM END OF MODULE FLASH
  114. 900 POKE54276,17:POKE54277,30:POKE54278,200:POKE54296,15
  115. 905 POKE54272,220:FOR T=15 TO 1 STEP-1
  116. 910 POKE54273,T:POKE53281,T
  117. 915 FOR T1=1 TO 5:NEXT T1:NEXT T:FOR T=1 TO 30
  118. 920 POKE54273,T:POKE53280,T
  119. 925 FORT1=1 TO 5:NEXT T1:NEXT T
  120. 930 POKE54276,0:POKE54273,0:POKE54272,0
  121. 936 RETURN
  122. 1998 :
  123. 1999 REM <YES> SOUND
  124. 2000 S=54272:FORE=STOS+28:POKEE,0:NEXT
  125. 2005 POKE54296,15:POKE54277,42:POKE54278,250
  126. 2010 POKE54276,23:POKE54273,23:POKE54272,181
  127. 2015 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
  128. 2020 POKE54296,0:RETURN
  129. 2048 :
  130. 2049 REM <NO> SOUND
  131. 2050 S=54272:FORE=STOS+28:POKEE,0:NEXT
  132. 2055 POKE54296,15:POKE54277,18:POKE54278,242
  133. 2060 POKE54276,33:POKE54273,4:POKE54272,48
  134. 2063 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO800:NEXT
  135. 2065 FORE=STOS+28:POKEE,0:NEXT
  136. 2070 POKE54276,0:POKE54273,0:POKE54272,0
  137. 2075 POKE54296,0:RETURN
  138. 2098 :
  139. 2099 REM <END OF EXERCISE> SOUND
  140. 2100 POKE54276,17:POKE54277,30:POKE54278,200:POKE54296,15
  141. 2105 POKE54272,220:FORT=50TO1STEP-1
  142. 2110 FORT1=1TO5:NEXTT1:NEXTT:FORT=1TO30
  143. 2115 POKE54273,T:POKE53280,T
  144. 2120 FORT1=1TO5:NEXTT1:NEXTT
  145. 2125 POKE54276,0:POKE54273,0:POKE54272,0
  146. 2130 TPOKE54296,0:RETURN
  147. 2148 :
  148. 2149 REM <WHOOPING> SOUND
  149. 2150 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,8
  150. 2155 POKE54277,8:POKE54278,255:POKE54276,23
  151. 2160 FORZ=1TO3:F1=2
  152. 2165 FORY=1TO3:F2=8
  153. 2170 POKE54273,F1
  154. 2175 FORX=1TO5:POKE54287,F2
  155. 2180 F2=F2*1.4:NEXTX:F1=F1*1.5:NEXTY
  156. 2185 FORW=1TO10:POKE54287,F2
  157. 2190 F2=F2*1.05:NEXT W:NEXT Z:POKE54278,15
  158. 2195 POKE54296,0:RETURN
  159. 4999 :
  160. 5000 REM * IN MEMORY OF RAD JANJIC *                 ** RIP 87:11:26 **
  161. 5005 :
  162. 5010 REM DESIGNED BY W H CUMBERLAND 87:12:21/88:04:24/90:11:07/91:05:12
  163. 5020 REM HELP FROM JIM BUTTERFIELD
  164. 5025 REM ADVISE WHC [416/278 7687] OF   ANY IMPROVEMENTS OR SUGGESTIONS
  165.